smaller_noaa %>%
plot_ly(x=~year, y = ~snow_mm, color = ~year, type = "box", colors = "viridis")
smaller_noaa %>%
plot_ly(x = ~year, y = ~tmin, color = ~year, type = "bar", colors = "viridis")
smaller_noaa %>%
plot_ly(
x = ~year, y = ~prcp, type = "scatter", mode = "markers", alpha = 0.5, colors = "viridis")
rmarkdown::render(“plotly.Rmd”, output_format = “flexdashboard::flex_dashboard”)